Иногда бывает нужно открывать различные формы в зависимости от выполнения каких-либо условий. Например, для элемента справочника Товары нужно открывать разные формы для собственно товара и для услуги. Для решения этой […]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | ЭлементыФормы.Отбор.Колонки.ПравоеЗначениеДляКраткогоОтображенияЭлемента.ЭлементУправления.УстановитьДействие("НачалоВыбора", Новый Действие("ОтборНачалоВыбора")); Процедура ОтборНачалоВыбора(Элемент, СтандартнаяОбработка) ТекущиеДанные = ЭлементыФормы.Отбор.ТекущиеДанные; Если Строка(ТекущиеДанные.ЛевоеЗначение) = "Родитель" Тогда СтандартнаяОбработка = Ложь; Форма = Справочники.Номенклатура.ПолучитьФормуВыбораГруппы(, Элемент); Форма.Открыть(); КонецЕсли; КонецПроцедуры |
Источник
Получение сообщений для бота Telegram (Источник)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | Запрос=Новый HTTPЗапрос(); Запрос.АдресРесурса=Константы.token.Получить()+"/getUpdates"; Запрос.Заголовки=Новый Соответствие(); Соединение=Новый HTTPСоединение("api.telegram.org",,,,,5,Новый ЗащищенноеСоединениеOpenSSL); update_id=Константы.update_id.Получить(); Если ЗначениеЗаполнено(update_id) тогда ТекстЗапроса="&offset="+Формат(update_id+1,"ЧГ="); Запрос.Заголовки.Вставить("Content-Type","application/x-www-form-urlencoded"); Запрос.УстановитьТелоИзСтроки(ТекстЗапроса); Ответ=Соединение.ОтправитьДляОбработки(Запрос);//POST //то же самое GET-запросом //Запрос.АдресРесурса=Запрос.АдресРесурса+"?offset="+Формат(update_id+1,"ЧГ="); //Ответ=Соединение.Получить(Запрос);//GET Иначе Ответ=Соединение.Получить(Запрос);//GET КонецЕсли; КодСостояния=Ответ.КодСостояния; СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку(); Если КодСостояния=200 тогда ЧтениеОтвета=Новый ЧтениеJSON; ЧтениеОтвета.УстановитьСтроку(СтрокаОтвета); РезультатСтруктура=ПрочитатьJSON(ЧтениеОтвета); Если РезультатСтруктура.ok=Истина тогда Для сч=1 по РезультатСтруктура.result.Количество() цикл ОбъектUpdate=РезультатСтруктура.result[сч-1]; Константы.update_id.Установить(ОбъектUpdate.update_id); СтруктураMessage=ОбъектUpdate.message; //СтруктураMessage это обычная Структура //описание объекта Message тут https://core.telegram.org/bots/api#message КонецЦикла; КонецЕсли; Иначе Сообщить("КодСостояния "+КодСостояния); Сообщить(СтрокаОтвета); КонецЕсли; |
Отправка сообщений от имени бота Telegram (Источник)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | Перем ТекстСообщения; chat_id=ЭлементыФормы.СправочникСписок.ТекущиеДанные.chat.id; //chat_id это идентификатор диалога, //в переменной хранится id пользователя (объект User) с которым ведётся диалог //https://core.telegram.org/bots/api#user ВвестиСтроку(ТекстСообщения); Если НЕ ЗначениеЗаполнено(ТекстСообщения) тогда возврат конецесли; Запрос=Новый HTTPЗапрос(); Запрос.АдресРесурса=Константы.token.Получить()+"/sendMessage"; Запрос.Заголовки=Новый Соответствие(); Соединение = Новый HTTPСоединение("api.telegram.org",,,,,5,Новый ЗащищенноеСоединениеOpenSSL); ТекстЗапроса=""; ТекстЗапроса=ТекстЗапроса+"&chat_id="+Формат(chat_id,"ЧГ="); ТекстЗапроса=ТекстЗапроса+"&text="+КодироватьСтроку(ТекстСообщения,СпособКодированияСтроки.КодировкаURL); //КодироватьСтроку() отсутствует в 8.2 ищите сами как сделать url encode Запрос.Заголовки.Вставить("Content-Type", "application/x-www-form-urlencoded"); Запрос.УстановитьТелоИзСтроки(ТекстЗапроса); Ответ=Соединение.ОтправитьДляОбработки(Запрос);//POST КодСостояния=Ответ.КодСостояния; СтрокаОтвета=Ответ.ПолучитьТелоКакСтроку(); Если КодСостояния=200 тогда ЧтениеОтвета=Новый ЧтениеJSON; ЧтениеОтвета.УстановитьСтроку(СтрокаОтвета); РезультатСтруктура=ПрочитатьJSON(ЧтениеОтвета); Если РезультатСтруктура.ok=Истина тогда СтруктураMessage=РезультатСтруктура.result; //СтруктураMessage это обычная Структура //сервер возвращает нам наше сообщение упакованое в объект Message //описание объекта Message тут https://core.telegram.org/bots/api#message КонецЕсли; Иначе Сообщить("КодСостояния "+КодСостояния); Сообщить(СтрокаОтвета); КонецЕсли; |
Оправка Push уведомления через онлайн сервис Pushover
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | Процедура ОтправитьPushOverУведомление(ТекстСообщения, ЗаголовокСообщения) Сервер = "api.pushover.net"; Адрес = "1/messages.json"; TokenKey = "......"; //Здесь токен канала UserID = "......"; //Здесь ИД пользователя Соединение = Новый HTTPСоединение(Сервер,,,,Новый ИнтернетПрокси(истина),10, Новый ЗащищенноеСоединениеOpenSSL); СтрокаПараметров = "?token=%3&user=%4&html=1&message=%1&title=%2"; СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%1", ТекстСообщения); СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%2", ЗаголовокСообщения); СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%3", TokenKey); СтрокаПараметров = СтрЗаменить(СтрокаПараметров, "%4", UserID); Запрос = Новый HTTPЗапрос(Адрес+СтрокаПараметров); Попытка Ответ = Соединение.ОтправитьДляОбработки(Запрос); Исключение СообщениеПользователю = Новый СообщениеПользователю; СообщениеПользователю.Текст = "Ошибка запроса к серверу: "+Ответ.КодСостояния; СообщениеПользователю.Сообщить(); Возврат; КонецПопытки; Если Ответ.КодСостояния <> 200 Тогда СообщениеПользователю = Новый СообщениеПользователю; СообщениеПользователю.Текст = "Ошибка запроса к серверу: "+Ответ.КодСостояния; СообщениеПользователю.Сообщить(); Возврат; КонецЕсли; КонецПроцедуры // ОтправитьPushУведомление() |
Источник
Функция считывает содержимое страницы файла Excel в таблицу значений, автоматически именует столбцы таблицы по первой строке файла. Пробелы заменяются на «».
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | &НаСервере Функция ПодготовитьТаблицуСДанными(ФайлАдресВХранилище) ИмяФайлаСервер = ПолучитьИмяВременногоФайла(".xlsx"); ФайлИмпорта = ПолучитьИзВременногоХранилища(ФайлАдресВХранилище); ФайлИмпорта.Записать(ИмяФайлаСервер); ТабличныйДокумент = Новый ТабличныйДокумент; Попытка ТабличныйДокумент.Прочитать(ИмяФайлаСервер, СпособЧтенияЗначенийТабличногоДокумента.Текст); Исключение Сообщение = Новый СообщениеПользователю; Сообщение.Текст = ОписаниеОшибки(); Сообщение.Сообщить(); КонецПопытки; ПЗ = Новый ПостроительЗапроса; ПЗ.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличныйДокумент.Область()); ПЗ.ДобавлениеПредставлений = ТипДобавленияПредставлений.НеДобавлять; ПЗ.ЗаполнитьНастройки(); ПЗ.Выполнить(); ТаблицаПромежуточныхДанных = ПЗ.Результат.Выгрузить(); Возврат ТаблицаПромежуточныхДанных; КонецФункции |
Источник
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | // отправка любого сообщения, в т.ч. ОписаниеОшибки(), в Телеграм бот Функция ОповеститьВтелеграм(Сообщение) Попытка // 1) Создаем бота в телеграме, для этого нужно перейти в @BotFather и проследовать инструкциям, // по окончании которых нам предоставят Access token ДанныеДоступа = "это Access token"; // 2) однократно получаем ID чата с ботом, предварительно написав боту любое сообщение // быстро: https://cms3.ru/kak-poluchit-chat-id-telegram/ // чуть дольше: из текста json ответа, в объекте chat: "chat": {"id": "ид чата"} Соединение = Новый HTTPСоединение("api.telegram.org",443,,,,,Новый ЗащищенноеСоединениеOpenSSL()); ТекстJSONОтвета = Соединение.Получить(Новый HTTPЗапрос("bot" + ДанныеДоступа + "/getUpdates")).ПолучитьТелоКакСтроку(); //(затем можно закомментировать две строчки кода выше) ИдЧата = "это chat.id"; // 3) Отправляем сообщение с ранее указанными сообщением, токеном, ид чата ЗапрячьТелегу = Новый HTTPСоединение("api.telegram.org",443,,,,15,Новый ЗащищенноеСоединениеOpenSSL()); ЗапрячьТелегу.Получить(Новый HTTPЗапрос("bot" + ДанныеДоступа + "/sendMessage?chat_id=" + ИдЧата + "&text=" + Сообщение)); Исключение КонецПопытки КонецФункции |
Источник
Плагин встроенного просмотрщика популярного файлового менеджера Total Commander.
Отрывка нет, потому что запись защищена.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | // ========= Поступление наличных, Поступление на расчетный счет (БП 3) ================================================================== // Доступные переменные: // Объект - обрабатываемый объект Попытка Для каждого Стр Из Объект.РасшифровкаПлатежа Цикл Стр.СпособПогашенияЗадолженности = Перечисления.СпособыПогашенияЗадолженности.Автоматически ; Стр.СчетУчетаРасчетовПоАвансам = ПланыСчетов.Хозрасчетный.РасчетыПоАвансамПолученным; Стр.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; КонецЦикла; Объект.Записать(РежимЗаписиДокумента.Проведение); Исключение Инфо = ИнформацияОбОшибке(); Сообщить("Описание='" + Инфо.Описание + "'"); КонецПопытки; // ======================================================================================================== |
1 2 3 4 5 6 7 8 9 10 11 | // ========= Реализации (БП 3) ============================================================================ // Доступные переменные: // Объект - обрабатываемый объект Попытка Объект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.Автоматически; Объект.Записать(РежимЗаписиДокумента.Проведение); Исключение Инфо = ИнформацияОбОшибке(); Сообщить("Описание='" + Инфо.Описание + "'"); КонецПопытки; // ======================================================================================================== |